Interactive Preview: Enemy of the State/Interactive Preview: Enemy of the State.iso/pc/alrtthis.dxr/00099.ls

Text File | 1998-11-18 | 1.8 KB | 79 lines

on enterFrame
end

on exitFrame
  go(the frame)
end

on keyDown
  case the key of
    TAB:
      doTabThang()
    ENTER, RETURN:
      doDefaultButton()
  end case
end

on doTabThang
  global gDefaultButton
  if the visible of sprite 9 = 1 then
    if the visible of sprite 19 = 1 then
      set the visible of sprite 9 to 0
      set the visible of sprite 10 to 1
      set the visible of sprite 11 to 0
      set gDefaultButton to "2"
      updateStage()
      exit
    else
      if the visible of sprite 20 = 1 then
        set the visible of sprite 9 to 0
        set the visible of sprite 10 to 0
        set the visible of sprite 11 to 1
        set gDefaultButton to "3"
        updateStage()
        exit
      end if
    end if
  else
    if the visible of sprite 10 = 1 then
      if the visible of sprite 20 = 1 then
        set the visible of sprite 9 to 0
        set the visible of sprite 10 to 0
        set the visible of sprite 11 to 1
        set gDefaultButton to "3"
        updateStage()
        exit
      else
        set the visible of sprite 9 to 1
        set the visible of sprite 10 to 0
        set the visible of sprite 11 to 0
        set gDefaultButton to "1"
        updateStage()
        exit
      end if
    else
      if the visible of sprite 11 = 1 then
        set the visible of sprite 9 to 1
        set the visible of sprite 10 to 0
        set the visible of sprite 11 to 0
        set gDefaultButton to "1"
        updateStage()
        exit
      end if
    end if
  end if
end

on doDefaultButton
  global gDefaultButton
  set msg to the text of field ("Msg" & gDefaultButton)
  tell the stage
    closeMe()
  end tell
  set btnName to the text of field ("Btn" & gDefaultButton && "PC")
  tell the stage
    do(msg)
    return btnName
  end tell
end